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r 
i er plopus BLISS REQUIRE file for Run-Time Library RPG$ Support 
i File: RPGPROLOG.REQ, Edit: 0G1001 


See eee eeeeee eee RAKE RHKAHHKeeeeHHeeeeeeeeeeeeeeeeeeeeetereeeeererererenetes 


'* COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
ie DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
't ALL RIGHTS RESERVED. 


:* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE ysee AND COPIED 
:* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH pices SE AND WITH THE 
:* INCLUSION OF a # aye COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 
!* COPIES THEREOF MA oH BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 


't TRANSFERRED. 


!* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTI 
:: ~ poke atin. NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPME 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7 gemma OF ITS 


:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL 


Seeee eee Ree RHEE AeHAReKAAAAeeeReeeeeeeeeeeeeeeeeeeeeeeeeeeeeeereeeeeees 
i] 


i 
Edit History: 
1-001 - Created. DG 18-Apr-1983 


'¢ 
- Set addressing modes to be used. 


SWITCHES ADDRESSING_MODE (EXTERNAL=GENERAL, NONEXTERNAL=WORD_RELATIVE); 


'¢ 
; Reference precompiled Libraries. 


LIBRARY ‘RTLSTARLE'; 


LIBRARY ‘RTLML: :RPGLIB'; ' SYSSLIBRARY:STARLET.L32 


! RPG-specific definitions 


'¢ 
: Declare PSECTs to be used. 


PSECT 

CODE = _RPGSCODE (READ, NOWRITE, EXECUTE, SHARE, PIC, 
ADDRESSING MODE (WORD RELATIVE)) 

PLIT = _RPGSCODE CREAD. NOWRITE, EXECUTE, SHARE, PIC, 
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ADDRESSING MODE (WORD RELATIV 

OWN RPG DATA (READ, WRITE 
ADDRES SING MODE (LONG_RELATIV 

GLOBAL = sReesoas AT (READ “WRITE 
ADDRESSING vRODE (LONG_RELATIVE)); 


UTE, NOSHARE, PIC, 
ECUTE, NOSHARE, PIC, 


~mwemwa 
ce Oe 


' End of RPGPROLOG.REQ 
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